home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Borland Visual dBASE Professiona v7.0 / DATA1.CAB / Sample_dBASE / Mugs / Fileopen.wfm < prev    next >
Text File  |  1997-11-20  |  4KB  |  167 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  FileOpen.wfm - Mugs Sample Application
  4. //
  5. //  File Open dialog for opening data entry forms from the 
  6. //  File | Open menu selection and File Open toolbar button.
  7. //
  8. //  Dependencies: <none>
  9. //
  10. //  Visual dBASE Samples Group
  11. //
  12. //  $Revision:   1.5  $
  13. //
  14. //  Copyright (c) 1997, Borland International, Inc. 
  15. //  All rights reserved.
  16. //
  17. //---------------------------------------------------------------
  18. ** END HEADER -- do not remove this line
  19. //
  20. // Generated on 10/23/97
  21. //
  22. parameter bModal
  23. local f
  24. f = new fileopenForm()
  25. if (bModal)
  26.    f.mdi = false // ensure not MDI
  27.    f.readModal()
  28. else
  29.    f.open()
  30. endif
  31.  
  32. class fileopenForm of FORM
  33.    with (this)
  34.       autoCenter = true
  35.       scaleFontSize = 8
  36.       scaleFontBold = false
  37.       height = 7.2273
  38.       left = 30
  39.       top = 8
  40.       width = 33.8571
  41.       text = "File Open"
  42.    endwith
  43.  
  44.  
  45.    this.BUTTONOPEN = new PUSHBUTTON(this)
  46.    with (this.BUTTONOPEN)
  47.       onClick = class::BUTTONOPEN_ONCLICK
  48.       height = 1.2105
  49.       left = 20
  50.       top = 0.9474
  51.       width = 12
  52.       text = "&Open"
  53.       metric = 0
  54.       default = true
  55.       fontName = "MS Sans Serif"
  56.       fontSize = 8
  57.       group = true
  58.       colorNormal = "BtnText/BtnFace"
  59.       value = false
  60.    endwith
  61.  
  62.  
  63.    this.BUTTONCANCEL = new PUSHBUTTON(this)
  64.    with (this.BUTTONCANCEL)
  65.       onClick = {; this.form.close() ; this.form.release()}
  66.       height = 1.2105
  67.       left = 20
  68.       top = 2.8421
  69.       width = 12
  70.       text = "Cancel"
  71.       metric = 0
  72.       fontName = "MS Sans Serif"
  73.       fontSize = 8
  74.       group = true
  75.       colorNormal = "BtnText/BtnFace"
  76.       value = false
  77.    endwith
  78.  
  79.  
  80.    this.RADIOCUSTOMER = new RADIOBUTTON(this)
  81.    with (this.RADIOCUSTOMER)
  82.       transparent = false
  83.       height = 1
  84.       left = 3
  85.       top = 1
  86.       width = 15
  87.       text = "&Customer"
  88.       metric = 0
  89.       colorNormal = "WindowText/BtnFace"
  90.       fontName = "MS Sans Serif"
  91.       fontSize = 8
  92.       group = true
  93.       value = true
  94.    endwith
  95.  
  96.  
  97.    this.RADIOINVOICE = new RADIOBUTTON(this)
  98.    with (this.RADIOINVOICE)
  99.       transparent = false
  100.       height = 1
  101.       left = 3
  102.       top = 2.3684
  103.       width = 15
  104.       text = "&Invoice"
  105.       metric = 0
  106.       colorNormal = "WindowText/BtnFace"
  107.       fontName = "MS Sans Serif"
  108.       fontSize = 8
  109.       group = false
  110.       value = false
  111.    endwith
  112.  
  113.  
  114.    this.RADIOSUPPLIER = new RADIOBUTTON(this)
  115.    with (this.RADIOSUPPLIER)
  116.       transparent = false
  117.       height = 1
  118.       left = 3
  119.       top = 3.7895
  120.       width = 15
  121.       text = "&Supplier"
  122.       metric = 0
  123.       colorNormal = "WindowText/BtnFace"
  124.       fontName = "MS Sans Serif"
  125.       fontSize = 8
  126.       group = false
  127.       value = false
  128.    endwith
  129.  
  130.  
  131.    this.RADIOINVENTORY = new RADIOBUTTON(this)
  132.    with (this.RADIOINVENTORY)
  133.       transparent = false
  134.       height = 1
  135.       left = 3
  136.       top = 5.2105
  137.       width = 15
  138.       text = "In&ventory"
  139.       metric = 0
  140.       colorNormal = "WindowText/BtnFace"
  141.       fontName = "MS Sans Serif"
  142.       fontSize = 8
  143.       group = false
  144.       value = false
  145.    endwith
  146.  
  147.  
  148.    // {Linked Method} form.buttonopen.onClick
  149.    function BUTTONOPEN_OnClick
  150.       local app
  151.  
  152.       if TYPE("this.form.app") == "O"
  153.          app = this.form.app
  154.          do case
  155.             case ( this.form.RADIOCUSTOMER.value )
  156.                  app.openCustomerForm()
  157.             case ( this.form.RADIOINVOICE.value )
  158.                  app.openInvoiceForm()
  159.             case ( this.form.RADIOSUPPLIER.value )
  160.                  app.openSupplierForm()
  161.             case ( this.form.RADIOINVENTORY.value )
  162.                  app.openInventoryForm()
  163.          endcase
  164.       endif
  165.    return ( this.form.close() )
  166. endclass
  167.